home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / HyperCard 1.2.5 / Help Stacks / Help / card_64640.txt < prev    next >
Encoding:
Text File  |  1987-11-25  |  2.0 KB  |  96 lines
  1. -- card: 64640 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4507
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=410 top=88 right=109 bottom=488
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Example 1
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   --An example of a REPEAT control structure
  23.   repeat until the shiftKey is down
  24.     put "The time is:" && the long time & ".  Press the Shift key to see the script."
  25.   end repeat
  26.   edit script of card button "example 1"   --so you can see the script
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 3 (button)
  32. -- low flags: 00
  33. -- high flags: 8004
  34. -- rect: left=412 top=266 right=287 bottom=488
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Example 2
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   --An example of a REPEAT control structure
  46.   put 0 into x
  47.   repeat
  48.     add 1 to x
  49.     if the shiftKey is down then exit repeat
  50.     if (x MOD 10) > 4 then next repeat
  51.     put "Numbers ending in 0,1,2,3, or 4:" && x & ".  Press Shift key to stop"
  52.   end repeat
  53.   edit script of card button "example 2"   --so you can see the script
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part contents for background part 1
  59. ----- text -----
  60. repeat until <true or false expression>
  61.    <command>
  62.    <command>
  63. end repeat
  64.  
  65. repeat 20
  66.      <command>
  67.      if x > 3 then next repeat   --  skip the rest and start 
  68.      <command>                   --  the next cycle of the loop
  69.    
  70.      if x > 43 then exit repeat   -- leave the loop early
  71.     <command>
  72. end repeat
  73.  
  74.  
  75.  
  76. -- part contents for background part 2
  77. ----- text -----
  78. Other control structures (cont.)
  79.  
  80. -- part contents for background part 44
  81. ----- text -----
  82. repeat until
  83.  
  84.  
  85.  
  86.  
  87. repeat
  88.  
  89. next repeat
  90.  
  91.  
  92. exit repeat
  93.  
  94. -- part contents for background part 43
  95. ----- text -----
  96. 267,189